home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpcall.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  40.7 KB  |  1,686 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpcall.h"
  4. init_cmpcall(){do_init(VV);}
  5. /*    local entry for function FAST-LINK-PROCLAIMED-TYPE-P    */
  6.  
  7. static object LI1(V1,va_alist)
  8.     object V1;
  9.     va_dcl 
  10. {    
  11.     va_list ap;
  12.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  13.     {register object V2;
  14.     object V3;
  15.     if(narg <1) too_few_arguments();
  16.     V2= V1;
  17.     narg = narg - 1;
  18.     if (narg <= 0) goto T1;
  19.     else {
  20.     va_start(ap);
  21.     V3= va_arg(ap,object);}
  22.     --narg; goto T2;
  23. T1:;
  24.     V3= Cnil;
  25. T2:;
  26.     if(type_of((V2))==t_symbol){
  27.     goto T4;}
  28.     {object V4 = Cnil;
  29.     VMR1(V4)}
  30. T4:;
  31.     if((length((V3)))<(64)){
  32.     goto T6;}
  33.     {object V5 = Cnil;
  34.     VMR1(V5)}
  35. T6:;{object V6;
  36.     if((get((V2),VV[0],Cnil))!=Cnil){
  37.     goto T10;}
  38.     V6= Cnil;
  39.     goto T9;
  40. T10:;
  41.     V6= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil);
  42. T9:;
  43.     if(V6==Cnil)goto T8;
  44.     {object V7 = V6;
  45.     VMR1(V7)}
  46. T8:;}
  47.     if((get((V2),VV[1],Cnil))!=Cnil){
  48.     goto T12;}
  49.     {object V8 = Cnil;
  50.     VMR1(V8)}
  51. T12:;
  52.     {object V9;
  53.     V9= get((V2),VV[2],Cnil);
  54.     {register object x= (V9),V11= VV[3];
  55.     while(!endp(V11))
  56.     if(eql(x,V11->c.c_car)){
  57.     V10= V11;
  58.     goto T17;
  59.     }else V11=V11->c.c_cdr;
  60.     V10= Cnil;}
  61. T17:;
  62.     if((V10)==Cnil){
  63.     goto T14;}}
  64.     {object V12 = Cnil;
  65.     VMR1(V12)}
  66. T14:;
  67.     {register object V13;
  68.     register object V14;
  69.     V13= get((V2),VV[4],Cnil);
  70.     V14= car((V13));
  71. T21:;
  72.     if(!(endp((V13)))){
  73.     goto T22;}
  74.     {object V15 = Ct;
  75.     VMR1(V15)}
  76. T22:;
  77.     if(!(((V14))==(VV[5]))){
  78.     goto T27;}
  79.     goto T26;
  80. T27:;{object V16;
  81.     {register object V17;
  82.     V17= (V14);
  83.     {register object x= (V17),V19= VV[3];
  84.     while(!endp(V19))
  85.     if(eql(x,V19->c.c_car)){
  86.     V18= V19;
  87.     goto T31;
  88.     }else V19=V19->c.c_cdr;
  89.     V18= Cnil;}
  90. T31:;
  91.     V16= ((V18)==Cnil?Ct:Cnil);}
  92.     if(V16==Cnil)goto T29;
  93.     goto T26;
  94. T29:;}
  95.     {object V20 = Cnil;
  96.     VMR1(V20)}
  97. T26:;
  98.     V13= cdr((V13));
  99.     V14= car((V13));
  100.     goto T21;}}
  101.     }
  102. /*    local entry for function CMP-MACRO-FUNCTION    */
  103.  
  104. static object LI2(V22)
  105.  
  106. object V22;
  107. {     VMB2 VMS2 VMV2
  108. TTL:;
  109.     {object V23;
  110.     V23= Cnil;
  111.     V23= (*(LnkLI96))((V22));
  112.     if(((V23))==Cnil){
  113.     goto T39;}
  114.     if(!((car((V23)))==(VV[6]))){
  115.     goto T43;}
  116.     {object V24 = Cnil;
  117.     VMR2(V24)}
  118. T43:;
  119.     {object V25 = (V23);
  120.     VMR2(V25)}
  121. T39:;
  122.     base[0]= (V22);
  123.     vs_top=(vs_base=base+0)+1;
  124.     Lmacro_function();
  125.     vs_top=sup;
  126.     {object V26 = vs_base[0];
  127.     VMR2(V26)}}
  128. }
  129. /*    local entry for function C1FUNOB    */
  130.  
  131. static object LI3(V28)
  132.  
  133. register object V28;
  134. {     VMB3 VMS3 VMV3
  135.     bds_check;
  136. TTL:;
  137.     {register object V29;
  138.     V29= Cnil;
  139.     if(!(type_of((V28))==t_cons)){
  140.     goto T47;}
  141.     if(!(type_of(car((V28)))==t_symbol)){
  142.     goto T47;}
  143.     if(((*(LnkLI97))(car((V28))))==Cnil){
  144.     goto T47;}
  145.     V28= (*(LnkLI98))((V28));
  146. T47:;{object V30;
  147.     if(type_of((V28))==t_cons){
  148.     goto T57;}
  149.     V30= Cnil;
  150.     goto T56;
  151. T57:;{object V31;
  152.     if((car((V28)))==(VV[7])){
  153.     goto T61;}
  154.     V31= Cnil;
  155.     goto T60;
  156. T61:;
  157.     if(((endp(cdr((V28)))?Ct:Cnil))==Cnil){
  158.     goto T63;}
  159.     V31= Cnil;
  160.     goto T60;
  161. T63:;
  162.     if(endp(cddr((V28)))){
  163.     goto T65;}
  164.     V31= Cnil;
  165.     goto T60;
  166. T65:;{object V32;
  167.     if(type_of(cadr((V28)))==t_cons){
  168.     goto T69;}
  169.     V32= Cnil;
  170.     goto T68;
  171. T69:;
  172.     if(((endp(cdadr((V28)))?Ct:Cnil))==Cnil){
  173.     goto T71;}
  174.     V32= Cnil;
  175.     goto T68;
  176. T71:;
  177.     if((caadr((V28)))==(VV[8])){
  178.     goto T73;}
  179.     V32= Cnil;
  180.     goto T68;
  181. T73:;
  182.     bds_bind(VV[9],Cnil);
  183.     bds_bind(VV[10],Cnil);
  184.     bds_bind(VV[11],Cnil);
  185.     bds_bind(VV[12],Cnil);
  186.     {object V33;
  187.     V33= (VFUN_NARGS=1,(*(LnkLI99))(cdadr((V28))));
  188.     V34= list(3,VV[13],cadr((V33)),(V33));
  189.     bds_unwind1;
  190.     bds_unwind1;
  191.     bds_unwind1;
  192.     bds_unwind1;
  193.     V32= V34;}
  194. T68:;
  195.     if(V32==Cnil)goto T67;
  196.     V31= V32;
  197.     goto T60;
  198. T67:;}
  199.     if(type_of(cadr((V28)))==t_symbol){
  200.     goto T76;}
  201.     V31= Cnil;
  202.     goto T60;
  203. T76:;{object V35;
  204.     V29= (*(LnkLI96))(cadr((V28)));
  205.     if(((V29))!=Cnil){
  206.     goto T80;}
  207.     V35= Cnil;
  208.     goto T79;
  209. T80:;
  210.     if((car((V29)))==(VV[6])){
  211.     goto T83;}
  212.     V35= Cnil;
  213.     goto T79;
  214. T83:;
  215.     V35= (V29);
  216. T79:;
  217.     if(V35==Cnil)goto T78;
  218.     V31= V35;
  219.     goto T60;
  220. T78:;}
  221.     V36= get(cadr((V28)),VV[16],Cnil);
  222.     V37= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],((V36)==Cnil?Ct:Cnil)));
  223.     V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28)));
  224. T60:;
  225.     if(V31==Cnil)goto T59;
  226.     V30= V31;
  227.     goto T56;
  228. T59:;}
  229.     if((car((V28)))==(VV[17])){
  230.     goto T86;}
  231.     V30= Cnil;
  232.     goto T56;
  233. T86:;
  234.     if(((endp(cdr((V28)))?Ct:Cnil))==Cnil){
  235.     goto T88;}
  236.     V30= Cnil;
  237.     goto T56;
  238. T88:;
  239.     if(endp(cddr((V28)))){
  240.     goto T90;}
  241.     V30= Cnil;
  242.     goto T56;
  243. T90:;{object V38;
  244.     if(type_of(cadr((V28)))==t_cons){
  245.     goto T94;}
  246.     V38= Cnil;
  247.     goto T93;
  248. T94:;
  249.     if((caadr((V28)))==(VV[8])){
  250.     goto T96;}
  251.     V38= Cnil;
  252.     goto T93;
  253. T96:;
  254.     if(((endp(cdadr((V28)))?Ct:Cnil))==Cnil){
  255.     goto T98;}
  256.     V38= Cnil;
  257.     goto T93;
  258. T98:;
  259.     {object V39;
  260.     V39= (VFUN_NARGS=1,(*(LnkLI99))(cdadr((V28))));
  261.     V38= list(3,VV[13],cadr((V39)),(V39));}
  262. T93:;
  263.     if(V38==Cnil)goto T92;
  264.     V30= V38;
  265.     goto T56;
  266. T92:;}
  267.     if(type_of(cadr((V28)))==t_symbol){
  268.     goto T101;}
  269.     V30= Cnil;
  270.     goto T56;
  271. T101:;{object V40;
  272.     V29= (*(LnkLI96))(cadr((V28)));
  273.     if(((V29))!=Cnil){
  274.     goto T105;}
  275.     V40= Cnil;
  276.     goto T104;
  277. T105:;
  278.     if((car((V29)))==(VV[6])){
  279.     goto T108;}
  280.     V40= Cnil;
  281.     goto T104;
  282. T108:;
  283.     V40= (V29);
  284. T104:;
  285.     if(V40==Cnil)goto T103;
  286.     V30= V40;
  287.     goto T56;
  288. T103:;}
  289.     V41= get(cadr((V28)),VV[16],Cnil);
  290.     V42= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],((V41)==Cnil?Ct:Cnil)));
  291.     V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28)));
  292. T56:;
  293.     if(V30==Cnil)goto T55;
  294.     {object V43 = V30;
  295.     VMR3(V43)}
  296. T55:;}
  297.     {object V44;
  298.     object V45;
  299.     V44= (*(LnkLI101))((V28));
  300.     V45= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],Ct));
  301.     (void)((*(LnkLI102))((V45),cadr((V44))));
  302.     {object V46 = list(3,VV[18],(V45),(V44));
  303.     VMR3(V46)}}}
  304. }
  305. /*    local entry for function C2FUNCALL-AUX    */
  306.  
  307. static object LI4(V48)
  308.  
  309. register object V48;
  310. {     VMB4 VMS4 VMV4
  311. TTL:;
  312.     {object V49;
  313.     object V50;
  314.     object V51;
  315.     object V52;
  316.     V49= cadr((V48));
  317.     V50= caddr((V48));
  318.     V51= cadddr((V48));
  319.     V52= car(cddddr((V48)));
  320.     {object V53 = (VFUN_NARGS=4,(*(LnkLI103))((V50),(V51),(V52),(V49)));
  321.     VMR4(V53)}}
  322. }
  323. /*    local entry for function C2FUNCALL    */
  324.  
  325. static object LI5(V55,V54,va_alist)
  326.     object V55,V54;
  327.     va_dcl 
  328. {    
  329.     va_list ap;
  330.     int narg = VFUN_NARGS; VMB5 VMS5 VMV5
  331.     bds_check;
  332.     {register object V56;
  333.     register object V57;
  334.     register object V58;
  335.     object V59;
  336.     if(narg <2) too_few_arguments();
  337.     V56= V55;
  338.     V57= V54;
  339.     narg = narg - 2;
  340.     if (narg <= 0) goto T118;
  341.     else {
  342.     va_start(ap);
  343.     V58= va_arg(ap,object);}
  344.     if (--narg <= 0) goto T119;
  345.     else {
  346.     V59= va_arg(ap,object);}
  347.     --narg; goto T120;
  348. T118:;
  349.     V58= Cnil;
  350. T119:;
  351.     V59= Cnil;
  352. T120:;
  353.     {object V60= car((V56));
  354.     if((V60!= VV[14]))goto T123;
  355.     {object V61 = (*(LnkLI104))(caddr((V56)),(V57),(V58),Ct);
  356.     VMR5(V61)}
  357. T123:;
  358.     if((V60!= VV[6]))goto T124;
  359.     {object V62 = (*(LnkLI105))(cddr((V56)),(V57));
  360.     VMR5(V62)}
  361. T124:;
  362.     if((V60!= VV[13]))goto T125;
  363.     {object V63 = (*(LnkLI106))(caddr((V56)),(V57));
  364.     VMR5(V63)}
  365. T125:;
  366.     if((V60!= VV[18]))goto T126;
  367.     {register object V64;
  368.     base[0]= symbol_value(VV[19]);
  369.     V64= caddr((V56));
  370.     bds_bind(VV[19],base[0]);
  371.     if(!(type_of((V57))==t_cons||((V57))==Cnil)){
  372.     goto T129;}
  373.     if((symbol_value(VV[20]))==Cnil){
  374.     goto T129;}
  375.     if((symbol_value(VV[21]))==(VV[22])){
  376.     goto T130;}
  377.     if(!(type_of(symbol_value(VV[21]))==t_cons)){
  378.     goto T137;}
  379.     if((car(symbol_value(VV[21])))==(VV[23])){
  380.     goto T130;}
  381. T137:;
  382.     if(((V59))==Cnil){
  383.     goto T129;}
  384.     V65= structure_ref((V59),VV[24],2);
  385.     if(!(equal(/* INLINE-ARGS */V65,VV[25]))){
  386.     goto T129;}
  387. T130:;
  388.     (void)((*(LnkLI107))((V64),(V57),(V59)));
  389.     {object V66 = Cnil;
  390.     bds_unwind1;
  391.     VMR5(V66)}
  392. T129:;
  393.     if(((V58))!=Cnil){
  394.     goto T145;}
  395.     if(type_of((V57))==t_cons||((V57))==Cnil){
  396.     goto T148;}
  397.     (void)((*(LnkLI108))());
  398. T148:;
  399.     if(!((car((V64)))==(VV[26]))){
  400.     goto T152;}
  401.     V58= caddr((V64));
  402.     goto T145;
  403. T152:;
  404.     if(!((car((V64)))==(VV[23]))){
  405.     goto T156;}
  406.     if(((*(LnkLI109))(caaddr((V64)),(V57)))!=Cnil){
  407.     goto T156;}
  408.     V58= make_cons(VV[23],caddr((V64)));
  409.     goto T145;
  410. T156:;
  411.     V58= list(2,VV[27],(*(LnkLI110))());
  412.     bds_bind(VV[21],(V58));
  413.     V67= (*(LnkLI111))(caddr((V56)));
  414.     bds_unwind1;
  415. T145:;
  416.     (void)((*(LnkLI112))((V57)));
  417.     if((symbol_value(VV[28]))==Cnil){
  418.     goto T166;}
  419.     princ_str("\n    super_funcall(",VV[29]);
  420.     (void)((*(LnkLI113))((V58)));
  421.     princ_str(");",VV[29]);
  422.     goto T164;
  423. T166:;
  424.     if((symbol_value(VV[30]))==Cnil){
  425.     goto T172;}
  426.     (void)((
  427.     (type_of(symbol_value(VV[30])) == t_sfun ?(*(object (*)())((symbol_value(VV[30]))->sfn.sfn_self)):
  428.     (fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58))));
  429.     goto T164;
  430. T172:;
  431.     princ_str("\n    super_funcall_no_event(",VV[29]);
  432.     (void)((*(LnkLI113))((V58)));
  433.     princ_str(");",VV[29]);
  434. T164:;
  435.     {object V68 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));
  436.     bds_unwind1;
  437.     VMR5(V68)}}
  438. T126:;
  439.     {object V69 = (*(LnkLI108))();
  440.     VMR5(V69)}}}
  441.     }
  442. /*    local entry for function FCALLN-INLINE    */
  443.  
  444. static object LI6(va_alist)
  445.     va_dcl 
  446. {    
  447.     va_list ap;
  448.     int narg = VFUN_NARGS; VMB6 VMS6 VMV6
  449.     {register object V70;
  450.     narg= narg - 0;
  451.     va_start(ap);
  452.     V71 = list_vector(narg,ap);
  453.     V70= V71;
  454.     {register object V72;
  455.     object V73;
  456.     V72= car((V70));
  457.     V73= Cnil;
  458.     (void)((*(LnkLI113))(VV[32]));
  459.     if(!(type_of((V72))==t_cons)){
  460.     goto T182;}
  461.     if((car((V72)))==(VV[23])){
  462.     goto T181;}
  463. T182:;
  464.     V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI115))()));
  465.     princ_str("\n    ",VV[29]);
  466.     (void)((*(LnkLI113))((V72)));
  467.     princ_str(" = ",VV[29]);
  468.     (void)((*(LnkLI113))(car((V70))));
  469.     princ_char(44,VV[29]);
  470. T181:;
  471.     princ_str("\n    (type_of(",VV[29]);
  472.     (void)((*(LnkLI113))((V72)));
  473.     princ_str(") == t_sfun ?",VV[29]);
  474.     princ_str("(*(object (*)())((",VV[29]);
  475.     (void)((*(LnkLI113))((V72)));
  476.     princ_str(")->sfn.sfn_self)):",VV[29]);
  477.     if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){
  478.     goto T200;}
  479.     V73= Ct;
  480.     princ_str("\n    (fcall.argd=",VV[29]);
  481.     V74 = make_fixnum(length(cdr((V70))));
  482.     (void)((*(LnkLI113))(V74));
  483.     princ_str(",type_of(",VV[29]);
  484.     (void)((*(LnkLI113))((V72)));
  485.     princ_str(")==t_vfun) ?",VV[29]);
  486.     princ_str("\n    (*(object (*)())((",VV[29]);
  487.     (void)((*(LnkLI113))((V72)));
  488.     princ_str(")->sfn.sfn_self)):",VV[29]);
  489. T200:;
  490.     princ_str("\n    (fcall.fun=(",VV[29]);
  491.     (void)((*(LnkLI113))((V72)));
  492.     princ_str("),",VV[29]);
  493.     if(((V73))!=Cnil){
  494.     goto T218;}
  495.     princ_str("fcall.argd=",VV[29]);
  496.     V75 = make_fixnum(length(cdr((V70))));
  497.     (void)((*(LnkLI113))(V75));
  498.     princ_char(44,VV[29]);
  499. T218:;
  500.     princ_str("fcalln))(",VV[29]);
  501.     if((cdr((V70)))==Cnil){
  502.     goto T226;}
  503.     (void)((*(LnkLI113))(cadr((V70))));
  504.     {register object V76;
  505.     register object V77;
  506.     V76= cddr((V70));
  507.     V77= car((V76));
  508. T234:;
  509.     if(!(endp((V76)))){
  510.     goto T235;}
  511.     goto T226;
  512. T235:;
  513.     (void)((*(LnkLI113))(VV[35]));
  514.     (void)((*(LnkLI113))((V77)));
  515.     V76= cdr((V76));
  516.     V77= car((V76));
  517.     goto T234;}
  518. T226:;
  519.     (void)((*(LnkLI113))(VV[36]));
  520.     (void)((*(LnkLI113))(VV[36]));
  521.     {object V78 = Cnil;
  522.     VMR6(V78)}}}
  523.     }
  524. /*    local entry for function C2CALL-LAMBDA    */
  525.  
  526. static object LI7(V81,V82)
  527.  
  528. object V81;register object V82;
  529. {     VMB7 VMS7 VMV7
  530.     bds_check;
  531. TTL:;
  532.     {register object V83;
  533.     V83= caddr((V81));
  534.     if((cadr((V83)))!=Cnil){
  535.     goto T250;}
  536.     if((caddr((V83)))!=Cnil){
  537.     goto T250;}
  538.     if((cadddr((V83)))!=Cnil){
  539.     goto T250;}
  540.     if(type_of((V82))==t_cons||((V82))==Cnil){
  541.     goto T251;}
  542. T250:;
  543.     if(!(type_of((V82))==t_cons||((V82))==Cnil)){
  544.     goto T259;}
  545.     {object V84;
  546.     V84= symbol_value(VV[19]);
  547.     bds_bind(VV[19],symbol_value(VV[19]));
  548.     (void)((*(LnkLI116))((V82)));
  549.     if(((*(LnkLI117))((V83)))==Cnil){
  550.     bds_unwind1;
  551.     goto T259;}
  552.     princ_str("\n    vs_top=(vs_base=base+",VV[29]);
  553.     (void)((*(LnkLI113))((V84)));
  554.     princ_str(")+",VV[29]);
  555.     V85= number_minus((VV[19]->s.s_dbind),(V84));
  556.     (void)((*(LnkLI113))(/* INLINE-ARGS */V85));
  557.     princ_char(59,VV[29]);
  558.     setq(VV[37],Ct);
  559.     bds_unwind1;}
  560. T259:;
  561.     {object V86 = (VFUN_NARGS=2,(*(LnkLI118))((V83),caddr(cddr((V81)))));
  562.     VMR7(V86)}
  563. T251:;
  564.     {object V87;
  565.     object V88;
  566.     V87= make_fixnum(length(car((V83))));
  567.     V88= make_fixnum(length((V82)));
  568.     if(!(eql((V88),(V87)))){
  569.     goto T276;}
  570.     goto T273;
  571. T276:;
  572.     (void)((VFUN_NARGS=3,(*(LnkLI119))(VV[38],(V88),(V87))));}
  573. T273:;
  574.     {object V89 = (*(LnkLI120))(car((V83)),(V82),caddr(cddr((V81))));
  575.     VMR7(V89)}}
  576. }
  577. /*    local entry for function CHECK-FNAME-ARGS    */
  578.  
  579. static object LI8(V92,V93)
  580.  
  581. object V92;object V93;
  582. {     VMB8 VMS8 VMV8
  583. TTL:;
  584.     {register object V94;
  585.     V94= get((V92),VV[39],Ct);
  586.     if((Ct)==((V94))){
  587.     goto T280;}
  588.     goto T279;
  589. T280:;
  590.     if((get((V92),VV[40],Cnil))!=Cnil){
  591.     goto T282;}
  592.     goto T279;
  593. T282:;
  594.     V94= VV[41];
  595. T279:;
  596.     if(!(type_of((V94))==t_cons||((V94))==Cnil)){
  597.     goto T286;}
  598.     if(!(type_of((V93))==t_cons||((V93))==Cnil)){
  599.     goto T286;}
  600.     {register object x= VV[5],V95= (V94);
  601.     while(!endp(V95))
  602.     if(eql(x,V95->c.c_car)){
  603.     goto T286;
  604.     }else V95=V95->c.c_cdr;}
  605.     if(!((length((V94)))==(length((V93))))){
  606.     goto T292;}
  607.     {object V96 = Ct;
  608.     VMR8(V96)}
  609. T292:;
  610.     V97 = make_fixnum(length((V93)));
  611.     V98 = make_fixnum(length((V94)));
  612.     {object V99 = (VFUN_NARGS=4,(*(LnkLI121))(VV[42],(V92),V97,V98));
  613.     VMR8(V99)}
  614. T286:;
  615.     {object V100 = Cnil;
  616.     VMR8(V100)}}
  617. }
  618. /*    function definition for SAVE-AVMA    */
  619.  
  620. static L9()
  621. {register object *base=vs_base;
  622.     register object *sup=base+VM9; VC9
  623.     vs_reserve(VM9);
  624.     {object V101;
  625.     check_arg(1);
  626.     V101=(base[0]);
  627.     vs_top=sup;
  628. TTL:;
  629.     if((symbol_value(VV[43]))!=Cnil){
  630.     goto T295;}{object V102;
  631.     {register object x= VV[44],V103= car((V101));
  632.     while(!endp(V103))
  633.     if(eql(x,V103->c.c_car)){
  634.     V102= V103;
  635.     goto T301;
  636.     }else V103=V103->c.c_cdr;
  637.     V102= Cnil;}
  638. T301:;
  639.     if(V102==Cnil)goto T300;
  640.     setq(VV[43],V102);
  641.     goto T299;
  642. T300:;}
  643.     if(!((cadr((V101)))==(VV[44]))){
  644.     goto T302;}
  645.     setq(VV[43],Ct);
  646.     goto T299;
  647. T302:;
  648.     base[1]= small_fixnum(4);
  649.     base[2]= caddr((V101));
  650.     vs_top=(vs_base=base+1)+2;
  651.     Llogbitp();
  652.     vs_top=sup;
  653.     setq(VV[43],vs_base[0]);
  654. T299:;
  655.     if((symbol_value(VV[43]))==Cnil){
  656.     goto T295;}
  657.     princ_str("\n    { save_avma;",VV[29]);
  658.     vs_base=vs_top;
  659.     (void) (*Lnk122)();
  660.     vs_top=sup;
  661.     if(!(type_of(symbol_value(VV[45]))==t_cons)){
  662.     goto T309;}
  663.     base[1]= Ct;
  664.     vs_top=(vs_base=base+1)+1;
  665.     return;
  666. T309:;
  667.     setq(VV[45],make_cons(symbol_value(VV[45]),VV[46]));
  668.     base[1]= symbol_value(VV[45]);
  669.     vs_top=(vs_base=base+1)+1;
  670.     return;
  671. T295:;
  672.     base[1]= Cnil;
  673.     vs_top=(vs_base=base+1)+1;
  674.     return;
  675.     }
  676. }
  677. /*    local entry for function C2CALL-GLOBAL    */
  678.  
  679. static object LI10(V108,V109,V110,V111)
  680.  
  681. register object V108;register object V109;object V110;object V111;
  682. {     VMB10 VMS10 VMV10
  683.     bds_check;
  684. TTL:;
  685.     {register object V112;
  686.     V112= Cnil;
  687.     bds_bind(VV[19],symbol_value(VV[19]));
  688.     if(((*(LnkLI123))((V108)))==Cnil){
  689.     goto T314;}
  690.     if(!(type_of((V109))==t_cons||((V109))==Cnil)){
  691.     goto T317;}
  692.     if((symbol_value(VV[47]))==Cnil){
  693.     goto T317;}
  694.     if((symbol_value(VV[48]))==Cnil){
  695.     goto T317;}
  696.     if(!((car(symbol_value(VV[48])))==((V108)))){
  697.     goto T317;}
  698.     {register object x= symbol_value(VV[49]),V113= VV[50];
  699.     while(!endp(V113))
  700.     if(eql(x,V113->c.c_car)){
  701.     goto T327;
  702.     }else V113=V113->c.c_cdr;
  703.     goto T317;}
  704. T327:;
  705.     if(((*(LnkLI124))())==Cnil){
  706.     goto T317;}
  707.     if(!((length((V109)))==(length(cdr(symbol_value(VV[48])))))){
  708.     goto T317;}
  709.     bds_bind(VV[21],VV[22]);
  710.     setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
  711.     bds_bind(VV[49],make_cons(symbol_value(VV[51]),Cnil));
  712.     bds_bind(VV[52],make_cons((VV[49]->s.s_dbind),symbol_value(VV[52])));
  713.     {object V115;
  714.     object V116= cdr(symbol_value(VV[48]));
  715.     if(endp(V116)){
  716.     V114= Cnil;
  717.     goto T336;}
  718.     base[4]=V115=MMcons(Cnil,Cnil);
  719. T337:;
  720.     (V115->c.c_car)= list(2,(V116->c.c_car),Cnil);
  721.     if(endp(V116=MMcdr(V116))){
  722.     V114= base[4];
  723.     goto T336;}
  724.     V115=MMcdr(V115)=MMcons(Cnil,Cnil);
  725.     goto T337;}
  726. T336:;
  727.     (void)((*(LnkLI125))(V114,(V109)));
  728.     if((cdr((VV[49]->s.s_dbind)))==Cnil){
  729.     bds_unwind1;
  730.     bds_unwind1;
  731.     bds_unwind1;
  732.     goto T331;}
  733.     princ_str("\nT",VV[29]);
  734.     (void)((*(LnkLI113))(car((VV[49]->s.s_dbind))));
  735.     princ_str(":;",VV[29]);
  736.     bds_unwind1;
  737.     bds_unwind1;
  738.     bds_unwind1;
  739. T331:;
  740.     (void)((*(LnkLI126))(VV[53]));
  741.     princ_str("\n    goto TTL;",VV[29]);
  742.     {object V118 = (VFUN_NARGS=2,(*(LnkLI127))(VV[54],(V108)));
  743.     bds_unwind1;
  744.     VMR10(V118)}
  745. T317:;
  746.     if(!(type_of((V109))==t_cons||((V109))==Cnil)){
  747.     goto T348;}
  748.     if(((V110))!=Cnil){
  749.     goto T348;}
  750.     V112= (*(LnkLI128))((V108),(V109),(V111));
  751.     if(((V112))==Cnil){
  752.     goto T348;}
  753.     bds_bind(VV[45],small_fixnum(0));
  754.     bds_bind(VV[43],symbol_value(VV[43]));
  755.     base[3]= (V112);
  756.     vs_top=(vs_base=base+3)+1;
  757.     (void) (*Lnk129)();
  758.     vs_top=sup;
  759.     V119= (*(LnkLI130))((V112),(V109));
  760.     (void)((VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V119,Cnil,(V108))));
  761.     {object V120 = (*(LnkLI131))();
  762.     bds_unwind1;
  763.     bds_unwind1;
  764.     bds_unwind1;
  765.     VMR10(V120)}
  766. T348:;{object V121;
  767.     V121= get((V108),VV[55],Cnil);
  768.     if(V121==Cnil)goto T362;
  769.     V112= V121;
  770.     goto T361;
  771. T362:;}
  772.     V112= get((V108),VV[56],Cnil);
  773. T361:;
  774.     if(((V112))==Cnil){
  775.     goto T359;}
  776.     (void)((*(LnkLI132))((V108),(V109)));
  777.     (void)((*(LnkLI112))((V109)));
  778.     princ_str("\n    ",VV[29]);
  779.     (void)((*(LnkLI113))((V112)));
  780.     princ_str("();",VV[29]);
  781.     {object V122 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V108)));
  782.     bds_unwind1;
  783.     VMR10(V122)}
  784. T359:;
  785.     if(!(type_of((V109))==t_cons||((V109))==Cnil)){
  786.     goto T371;}
  787.     if(!((length((V109)))<(10))){
  788.     goto T371;}
  789.     if((symbol_value(VV[57]))!=Cnil){
  790.     goto T376;}
  791.     if((get((V108),VV[58],Cnil))==Cnil){
  792.     goto T371;}
  793. T376:;
  794.     if(!((symbol_value(VV[21]))==(VV[59]))){
  795.     goto T382;}
  796.     base[1]= Ct;
  797.     base[2]= VV[60];
  798.     base[3]= (V108);
  799.     vs_top=(vs_base=base+1)+3;
  800.     Lformat();
  801.     vs_top=sup;
  802. T382:;
  803.     if((VV[59])==(symbol_value(VV[21]))){
  804.     goto T371;}
  805.     if(((V110))!=Cnil){
  806.     goto T371;}
  807.     bds_bind(VV[45],small_fixnum(0));
  808.     V123= (*(LnkLI133))((V108),(V109));
  809.     V124= (*(LnkLI130))(/* INLINE-ARGS */V123,(V109));
  810.     (void)((VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V124,Cnil,(V108))));
  811.     {object V125 = (*(LnkLI131))();
  812.     bds_unwind1;
  813.     bds_unwind1;
  814.     VMR10(V125)}
  815. T371:;
  816.     (void)((*(LnkLI112))((V109)));
  817.     {object V126;
  818.     V126= (*(LnkLI134))((V108),Cnil,(V109));
  819.     princ_str("\n    (void) (*Lnk",VV[29]);
  820.     (void)((*(LnkLI113))((V126)));
  821.     princ_str(")(",VV[29]);
  822.     if((get((V108),VV[61],Cnil))==Cnil){
  823.     goto T398;}
  824.     princ_str("Lclptr",VV[29]);
  825.     (void)((*(LnkLI113))((V126)));
  826. T398:;
  827.     princ_str(");",VV[29]);
  828.     {object V127 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V108)));
  829.     bds_unwind1;
  830.     VMR10(V127)}}
  831. T314:;
  832.     {object V128 = (*(LnkLI135))((V108),(V109),(V110),Cnil);
  833.     bds_unwind1;
  834.     VMR10(V128)}}
  835. }
  836. /*    local entry for function ADD-FAST-LINK    */
  837.  
  838. static object LI11(V132,V133,V134)
  839.  
  840. register object V132;object V133;object V134;
  841. {     VMB11 VMS11 VMV11
  842. TTL:;
  843.     {object V135;
  844.     object V136;
  845.     object V137;
  846.     register object V138;
  847.     V137= (*(LnkLI136))((V132));
  848.     V135= Cnil;
  849.     V136= Cnil;
  850.     V138= Cnil;
  851.     if(((V133))==Cnil){
  852.     goto T408;}
  853.     {object V139;
  854.     object V140;
  855.     object V141;
  856.     base[0]=MMcons(Cnil,Cnil);
  857.     V139= Cnil;
  858.     V140= Cnil;
  859.     if(type_of((V134))==t_cons||((V134))==Cnil){
  860.     goto T413;}
  861.     V141= Cnil;
  862.     goto T412;
  863. T413:;
  864.     V141= make_fixnum(length((V134)));
  865. T412:;
  866.     if((get((V132),VV[1],Cnil))==Cnil){
  867.     goto T418;}
  868.     V140= get((V132),VV[4],Cnil);
  869.     goto T416;
  870. T418:;
  871.     V139= get((V132),VV[0],Cnil);
  872.     if(((V139))==Cnil){
  873.     goto T421;}
  874.     if(!(type_of((V139))==t_fixnum)){
  875.     goto T426;}
  876.     if(!(equal((V141),(V139)))){
  877.     goto T428;}
  878.     goto T424;
  879. T428:;
  880.     (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[62],(V132))));
  881.     goto T424;
  882. T426:;
  883.     (void)(sputprop((V132),VV[0],(V141)));
  884. T424:;
  885.     base[2]= (V141);
  886.     base[3]= VV[63];
  887.     base[4]= Ct;
  888.     vs_top=(vs_base=base+2)+3;
  889.     Lmake_list();
  890.     vs_top=sup;
  891.     V140= vs_base[0];
  892.     goto T416;
  893. T421:;
  894.     V140= Cnil;
  895. T416:;
  896.     if((V141)==Cnil){
  897.     goto T433;}
  898.     V142 = make_fixnum(length((V140)));
  899.     if(!(eql((V141),V142))){
  900.     goto T434;}
  901.     goto T433;
  902. T434:;{object V143;
  903.     {register object x= VV[5],V144= (V140);
  904.     while(!endp(V144))
  905.     if(eql(x,V144->c.c_car)){
  906.     V143= V144;
  907.     goto T437;
  908.     }else V144=V144->c.c_cdr;
  909.     V143= Cnil;}
  910. T437:;
  911.     if(V143==Cnil)goto T436;
  912.     goto T433;
  913. T436:;}
  914.     V145 = make_fixnum(length((V140)));
  915.     (void)((VFUN_NARGS=4,(*(LnkLI121))(VV[64],(V132),(V141),V145)));
  916. T433:;
  917.     {register object x= (V132),V146= symbol_value(VV[65]);
  918.     while(!endp(V146))
  919.     if(type_of(V146->c.c_car)==t_cons &&eql(x,V146->c.c_car->c.c_car)){
  920.     V136= (V146->c.c_car);
  921.     goto T440;
  922.     }else V146=V146->c.c_cdr;
  923.     V136= Cnil;}
  924. T440:;
  925.     if((cddr((V136)))!=Cnil){
  926.     goto T406;}
  927.     {register object V147;
  928.     vs_base=vs_top;
  929.     (void) (*Lnk137)();
  930.     vs_top=sup;
  931.     V147= vs_base[0];
  932.     base[2]= (V147);
  933.     base[3]= VV[66];
  934.     base[4]= (V137);
  935.     vs_top=(vs_base=base+2)+3;
  936.     Lformat();
  937.     vs_top=sup;
  938.     {register object V148;
  939.     register object V149;
  940.     register object V150;
  941.     V148= Cnil;
  942.     V149= (V140);
  943.     V150= small_fixnum(0);
  944. T450:;
  945.     if(((V149))!=Cnil){
  946.     goto T451;}
  947.     goto T448;
  948. T451:;
  949.     if(!((car((V149)))==(VV[5]))){
  950.     goto T457;}
  951.     V138= Ct;
  952.     (void)(princ(VV[67],(V147)));
  953.     goto T455;
  954. T457:;
  955.     if(((V148))==Cnil){
  956.     goto T463;}
  957.     (void)(princ(VV[68],(V147)));
  958.     goto T461;
  959. T463:;
  960.     V148= Ct;
  961. T461:;
  962.     base[2]= (V147);
  963.     base[3]= VV[69];
  964.     base[4]= (V150);
  965.     vs_top=(vs_base=base+2)+3;
  966.     Lformat();
  967.     vs_top=sup;
  968. T455:;
  969.     V149= cdr((V149));
  970.     V150= number_plus(small_fixnum(1),(V150));
  971.     goto T450;}
  972. T448:;
  973.     (void)(princ(VV[70],(V147)));
  974.     base[2]= (V147);
  975.     vs_top=(vs_base=base+2)+1;
  976.     (void) (*Lnk138)();
  977.     vs_top=sup;
  978.     (base[0]->c.c_car)= vs_base[0];}
  979.     if(((V138))==Cnil){
  980.     goto T475;}
  981.     V135= 
  982.     make_cclosure_new(LC20,Cnil,base[0],Cdata);
  983. T475:;{object V152;
  984.     V152= get((V132),VV[2],Cnil);
  985.     if(V152==Cnil)goto T482;
  986.     V151= V152;
  987.     goto T481;
  988. T482:;}
  989.     V151= Ct;
  990. T481:;
  991.     if((V135)!=Cnil){
  992.     V153= (V135);
  993.     goto T484;}
  994.     V153= (base[0]->c.c_car);
  995. T484:;
  996.     V154= list(6,(V132),(V140),V151,small_fixnum(3),V153,VV[72]);
  997.     setq(VV[71],make_cons(/* INLINE-ARGS */V154,symbol_value(VV[71])));
  998.     base[2]= Cnil;
  999.     base[3]= VV[73];
  1000.     base[4]= (V137);
  1001.     vs_top=(vs_base=base+2)+3;
  1002.     Lformat();
  1003.     vs_top=sup;
  1004.     V155= vs_base[0];{object V157;
  1005.     V157= get((V132),VV[2],Cnil);
  1006.     if(V157==Cnil)goto T491;
  1007.     V156= V157;
  1008.     goto T490;
  1009. T491:;}
  1010.     V156= Ct;
  1011. T490:;
  1012.     V136= list(4,(V132),V155,V156,(V140));
  1013.     goto T406;}
  1014. T408:;
  1015.     (void)((*(LnkLI132))((V132),(V134)));
  1016.     if((get((V132),VV[61],Cnil))==Cnil){
  1017.     goto T497;}
  1018.     V158= VV[61];
  1019.     goto T495;
  1020. T497:;
  1021.     V158= Cnil;
  1022. T495:;
  1023.     V136= list(3,(V132),(V137),V158);
  1024. T406:;
  1025.     base[0]= (V136);
  1026.     base[1]= symbol_value(VV[65]);
  1027.     base[2]= VV[74];
  1028.     base[3]= VV[75];
  1029.     vs_top=(vs_base=base+0)+4;
  1030.     Ladjoin();
  1031.     vs_top=sup;
  1032.     setq(VV[65],vs_base[0]);
  1033.     {object V159 = (V137);
  1034.     VMR11(V159)}}
  1035. }
  1036. /*    local entry for function WT-FUNCTION-LINK    */
  1037.  
  1038. static object LI12(V161)
  1039.  
  1040. register object V161;
  1041. {     VMB12 VMS12 VMV12
  1042. TTL:;
  1043.     {register object V162;
  1044.     register object V163;
  1045.     register object V164;
  1046.     object V165;
  1047.     V162= car((V161));
  1048.     V163= cadr((V161));
  1049.     V164= caddr((V161));
  1050.     V165= cadddr((V161));
  1051.     if(((V164))!=Cnil){
  1052.     goto T511;}
  1053.     princ_str("\nstatic LnkT",VV[29]);
  1054.     (void)((*(LnkLI113))((V163)));
  1055.     princ_str("(){ call_or_link(VV[",VV[29]);
  1056.     (void)((*(LnkLI113))((V163)));
  1057.     princ_str("],&Lnk",VV[29]);
  1058.     (void)((*(LnkLI113))((V163)));
  1059.     princ_str(");}",VV[29]);
  1060.     goto T509;
  1061. T511:;
  1062.     if(!(eql((V164),VV[61]))){
  1063.     goto T521;}
  1064.     princ_str("\nstatic LnkT",VV[29]);
  1065.     (void)((*(LnkLI113))((V163)));
  1066.     princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);
  1067.     (void)((*(LnkLI113))((V163)));
  1068.     princ_str("],&Lnk",VV[29]);
  1069.     (void)((*(LnkLI113))((V163)));
  1070.     princ_str(",&Lclptr",VV[29]);
  1071.     (void)((*(LnkLI113))((V163)));
  1072.     princ_str(");}",VV[29]);
  1073.     goto T509;
  1074. T521:;
  1075.     princ_str("\nstatic ",VV[29]);
  1076.     V166= (*(LnkLI139))((V164));
  1077.     (void)((*(LnkLI113))(/* INLINE-ARGS */V166));
  1078.     princ_str(" LnkT",VV[29]);
  1079.     (void)((*(LnkLI113))((V163)));
  1080.     if(((V165))!=Cnil){
  1081.     goto T537;}
  1082.     if((Ct)==((V164))){
  1083.     goto T538;}
  1084. T537:;
  1085.     {object V167;
  1086.     {register object x= VV[5],V168= (V165);
  1087.     while(!endp(V168))
  1088.     if(eql(x,V168->c.c_car)){
  1089.     V167= V168;
  1090.     goto T542;
  1091.     }else V168=V168->c.c_cdr;
  1092.     V167= Cnil;}
  1093. T542:;
  1094.     princ_str("(va_alist)va_dcl{va_list ap;va_start(ap);return(",VV[29]);
  1095.     V169= (*(LnkLI139))((V164));
  1096.     (void)((*(LnkLI113))(/* INLINE-ARGS */V169));
  1097.     princ_str(")call_",VV[29]);
  1098.     if(((V167))==Cnil){
  1099.     goto T550;}
  1100.     V170= VV[76];
  1101.     goto T548;
  1102. T550:;
  1103.     V170= VV[77];
  1104. T548:;
  1105.     (void)((*(LnkLI113))(V170));
  1106.     princ_str("proc(VV[",VV[29]);
  1107.     V171= (*(LnkLI140))((V162));
  1108.     (void)((*(LnkLI113))(/* INLINE-ARGS */V171));
  1109.     princ_str("],&Lnk",VV[29]);
  1110.     (void)((*(LnkLI113))((V163)));
  1111.     if((V167)!=Cnil){
  1112.     goto T556;}
  1113.     princ_char(44,VV[29]);
  1114.     V172 = make_fixnum((*(LnkLI141))((V165),(V164)));
  1115.     (void)((*(LnkLI113))(V172));
  1116. T556:;
  1117.     princ_str(",ap);}",VV[29]);
  1118.     goto T509;}
  1119. T538:;
  1120.     princ_str("(){return call_proc0(VV[",VV[29]);
  1121.     V173= (*(LnkLI140))((V162));
  1122.     (void)((*(LnkLI113))(/* INLINE-ARGS */V173));
  1123.     princ_str("],&Lnk",VV[29]);
  1124.     (void)((*(LnkLI113))((V163)));
  1125.     princ_str(");}",VV[29]);
  1126. T509:;
  1127.     V162= symbol_name((V162));
  1128.     if(((VFUN_NARGS=2,(*(LnkLI142))(VV[78],(V162))))==Cnil){
  1129.     goto T567;}
  1130.     V162= (VFUN_NARGS=2,(*(LnkLI143))(VV[78],(V162)));
  1131. T567:;
  1132.     princ_str(" /* ",VV[29]);
  1133.     (void)((*(LnkLI113))((V162)));
  1134.     princ_str(" */",VV[29]);
  1135.     {object V174 = Cnil;
  1136.     VMR12(V174)}}
  1137. }
  1138. /*    local entry for function WT-FUNCALL-C    */
  1139.  
  1140. static object LI13(V176)
  1141.  
  1142. register object V176;
  1143. {     VMB13 VMS13 VMV13
  1144.     bds_check;
  1145. TTL:;
  1146.     {object V177;
  1147.     object V178;
  1148.     register object V179;
  1149.     V177= car((V176));
  1150.     V178= cdr((V176));
  1151.     V179= Cnil;
  1152.     if(!(eql(car((V177)),VV[23]))){
  1153.     goto T579;}
  1154.     {object V180;
  1155.     V180= make_cons(car((V177)),caddr((V177)));
  1156.     if((symbol_value(VV[79]))==Cnil){
  1157.     goto T582;}
  1158.     princ_str("\n    (type_of(",VV[29]);
  1159.     base[0]= (V180);
  1160.     vs_top=(vs_base=base+0)+1;
  1161.     (void) (*Lnk144)();
  1162.     vs_top=sup;
  1163.     princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);
  1164.     base[0]= (V180);
  1165.     vs_top=(vs_base=base+0)+1;
  1166.     (void) (*Lnk144)();
  1167.     vs_top=sup;
  1168.     princ_str(");",VV[29]);
  1169. T582:;
  1170.     (void)((*(LnkLI112))((V178)));
  1171.     princ_str("\n    (",VV[29]);
  1172.     base[0]= (V180);
  1173.     vs_top=(vs_base=base+0)+1;
  1174.     (void) (*Lnk144)();
  1175.     vs_top=sup;
  1176.     goto T577;}
  1177. T579:;
  1178.     setq(VV[80],number_plus(symbol_value(VV[80]),small_fixnum(1)));
  1179.     V179= list(2,VV[33],symbol_value(VV[80]));
  1180.     bds_bind(VV[21],(V179));
  1181.     princ_str("\n    {object V",VV[29]);
  1182.     (void)((*(LnkLI113))(cadr((V179))));
  1183.     princ_char(59,VV[29]);
  1184.     (void)((*(LnkLI111))(car((V176))));
  1185.     (void)((*(LnkLI112))(cdr((V176))));
  1186.     princ_str("(V",VV[29]);
  1187.     (void)((*(LnkLI113))(cadr((V179))));
  1188.     bds_unwind1;
  1189. T577:;
  1190.     princ_str(")->cf.cf_self ();",VV[29]);
  1191.     if((V179)==Cnil){
  1192.     goto T574;}
  1193.     princ_char(125,VV[29]);}
  1194. T574:;
  1195.     {object V181 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));
  1196.     VMR13(V181)}
  1197. }
  1198. /*    local entry for function INLINE-PROC    */
  1199.  
  1200. static object LI14(V184,V185)
  1201.  
  1202. object V184;object V185;
  1203. {     VMB14 VMS14 VMV14
  1204. TTL:;
  1205.     {register object V186;
  1206.     register object V187;
  1207.     object V188;
  1208.     V186= make_fixnum(length((V185)));
  1209.     V187= Cnil;
  1210.     V188= (*(LnkLI140))((V184));
  1211.     base[2]= Ct;
  1212.     base[3]= VV[81];
  1213.     base[4]= (V184);
  1214.     vs_top=(vs_base=base+2)+3;
  1215.     Lformat();
  1216.     vs_top=sup;
  1217.     {object V189;
  1218.     {object V190= (V186);
  1219.     if(!eql(V190,VV[82]))goto T620;
  1220.     base[2]= Cnil;
  1221.     base[3]= VV[84];
  1222.     base[4]= (V188);
  1223.     vs_top=(vs_base=base+2)+3;
  1224.     Lformat();
  1225.     vs_top=sup;
  1226.     V191= vs_base[0];
  1227.     V189= list(5,VV[83],Ct,small_fixnum(3),V191,VV[58]);
  1228.     goto T619;
  1229. T620:;
  1230.     if(!eql(V190,VV[85]))goto T625;
  1231.     base[2]= Cnil;
  1232.     base[3]= VV[87];
  1233.     base[4]= (V188);
  1234.     vs_top=(vs_base=base+2)+3;
  1235.     Lformat();
  1236.     vs_top=sup;
  1237.     V192= vs_base[0];
  1238.     V189= list(5,VV[86],Ct,small_fixnum(3),V192,VV[58]);
  1239.     goto T619;
  1240. T625:;
  1241.     base[2]= (V186);
  1242.     base[3]= VV[63];
  1243.     base[4]= Ct;
  1244.     vs_top=(vs_base=base+2)+3;
  1245.     Lmake_list();
  1246.     vs_top=sup;
  1247.     V193= vs_base[0];
  1248.     base[2]= Cnil;
  1249.     base[3]= VV[88];
  1250.     base[4]= (V188);
  1251.     base[5]= (V186);
  1252.     {register object V195;
  1253.     register object V196;
  1254.     V195= (V186);
  1255.     V196= small_fixnum(0);
  1256. T643:;
  1257.     if(!(number_compare((V196),(V195))>=0)){
  1258.     goto T644;}
  1259.     base[6]= nreverse((V187));
  1260.     goto T639;
  1261. T644:;
  1262.     V187= make_cons((V196),(V187));
  1263.     V196= one_plus((V196));
  1264.     goto T643;}
  1265. T639:;
  1266.     vs_top=(vs_base=base+2)+5;
  1267.     Lformat();
  1268.     vs_top=sup;
  1269.     V194= vs_base[0];
  1270.     V189= list(5,V193,Ct,small_fixnum(3),V194,VV[58]);}
  1271. T619:;
  1272.     V197= make_cons((V184),(V189));
  1273.     setq(VV[71],make_cons(/* INLINE-ARGS */V197,symbol_value(VV[71])));
  1274.     {object V198 = (V189);
  1275.     VMR14(V198)}}}
  1276. }
  1277. /*    local entry for function WT-SIMPLE-CALL    */
  1278.  
  1279. static object LI15(V201,V200,V199,va_alist)
  1280.     object V201,V200,V199;
  1281.     va_dcl 
  1282. {    
  1283.     va_list ap;
  1284.     int narg = VFUN_NARGS; VMB15 VMS15 VMV15
  1285.     {object V202;
  1286.     object V203;
  1287.     object V204;
  1288.     object V205;
  1289.     if(narg <3) too_few_arguments();
  1290.     V202= V201;
  1291.     V203= V200;
  1292.     V204= V199;
  1293.     narg = narg - 3;
  1294.     if (narg <= 0) goto T655;
  1295.     else {
  1296.     va_start(ap);
  1297.     V205= va_arg(ap,object);}
  1298.     --narg; goto T656;
  1299. T655:;
  1300.     V205= Cnil;
  1301. T656:;
  1302.     princ_str("simple_",VV[29]);
  1303.     (void)((*(LnkLI113))((V202)));
  1304.     princ_char(40,VV[29]);
  1305.     if(((V205))==Cnil){
  1306.     goto T662;}
  1307.     princ_str("VV[",VV[29]);
  1308.     (void)((*(LnkLI113))((V205)));
  1309.     princ_str("],",VV[29]);
  1310. T662:;
  1311.     princ_str("base+",VV[29]);
  1312.     (void)((*(LnkLI113))((V203)));
  1313.     princ_char(44,VV[29]);
  1314.     (void)((*(LnkLI113))((V204)));
  1315.     princ_char(41,VV[29]);
  1316.     setq(VV[37],Ct);
  1317.     {object V206 = Ct;
  1318.     VMR15(V206)}}
  1319.     }
  1320. /*    local entry for function SAVE-FUNOB    */
  1321.  
  1322. static object LI16(V208)
  1323.  
  1324. register object V208;
  1325. {     VMB16 VMS16 VMV16
  1326.     bds_check;
  1327. TTL:;
  1328.     {object V209= car((V208));
  1329.     if((V209!= VV[13])
  1330.     && (V209!= VV[145])
  1331.     && (V209!= VV[6]))goto T675;
  1332.     {object V210 = Cnil;
  1333.     VMR16(V210)}
  1334. T675:;
  1335.     if((V209!= VV[14]))goto T676;
  1336.     if(((*(LnkLI123))(caddr((V208))))==Cnil){
  1337.     goto T677;}
  1338.     if((get(caddr((V208)),VV[55],Cnil))!=Cnil){
  1339.     goto T678;}
  1340.     if((get(caddr((V208)),VV[56],Cnil))!=Cnil){
  1341.     goto T678;}
  1342.     {register object x= caddr((V208)),V211= symbol_value(VV[89]);
  1343.     while(!endp(V211))
  1344.     if(type_of(V211->c.c_car)==t_cons &&eql(x,V211->c.c_car->c.c_car)){
  1345.     goto T678;
  1346.     }else V211=V211->c.c_cdr;}
  1347. T677:;
  1348.     {object V212;
  1349.     V212= list(2,VV[27],(*(LnkLI110))());
  1350.     if((symbol_value(VV[79]))==Cnil){
  1351.     goto T689;}
  1352.     princ_str("\n    ",VV[29]);
  1353.     (void)((*(LnkLI113))((V212)));
  1354.     princ_str("=symbol_function(VV[",VV[29]);
  1355.     V213= (*(LnkLI136))(caddr((V208)));
  1356.     (void)((*(LnkLI113))(/* INLINE-ARGS */V213));
  1357.     princ_str("]);",VV[29]);
  1358.     goto T687;
  1359. T689:;
  1360.     princ_str("\n    ",VV[29]);
  1361.     (void)((*(LnkLI113))((V212)));
  1362.     princ_str("=VV[",VV[29]);
  1363.     V214= (*(LnkLI136))(caddr((V208)));
  1364.     (void)((*(LnkLI113))(/* INLINE-ARGS */V214));
  1365.     princ_str("]->s.s_gfdef;",VV[29]);
  1366. T687:;
  1367.     {object V215 = (V212);
  1368.     VMR16(V215)}}
  1369. T678:;
  1370.     {object V216 = Cnil;
  1371.     VMR16(V216)}
  1372. T676:;
  1373.     if((V209!= VV[18]))goto T701;
  1374.     {object V217;
  1375.     V217= list(2,VV[27],(*(LnkLI110))());
  1376.     bds_bind(VV[21],(V217));
  1377.     (void)((*(LnkLI111))(caddr((V208))));
  1378.     {object V218 = (V217);
  1379.     bds_unwind1;
  1380.     VMR16(V218)}}
  1381. T701:;
  1382.     {object V219 = (*(LnkLI108))();
  1383.     VMR16(V219)}}
  1384. }
  1385. /*    local entry for function PUSH-ARGS    */
  1386.  
  1387. static object LI17(V221)
  1388.  
  1389. object V221;
  1390. {     VMB17 VMS17 VMV17
  1391.     bds_check;
  1392. TTL:;
  1393.     if(((V221))!=Cnil){
  1394.     goto T705;}
  1395.     princ_str("\n    vs_base=vs_top;",VV[29]);
  1396.     {object V222 = Cnil;
  1397.     VMR17(V222)}
  1398. T705:;
  1399.     if(!(type_of((V221))==t_cons)){
  1400.     goto T709;}
  1401.     {object V223;
  1402.     V223= symbol_value(VV[19]);
  1403.     bds_bind(VV[19],symbol_value(VV[19]));
  1404.     {register object V224;
  1405.     register object V225;
  1406.     V224= (V221);
  1407.     V225= car((V224));
  1408. T716:;
  1409.     if(!(endp((V224)))){
  1410.     goto T717;}
  1411.     goto T712;
  1412. T717:;
  1413.     base[2]= list(2,VV[27],(*(LnkLI110))());
  1414.     bds_bind(VV[21],base[2]);
  1415.     V226= (*(LnkLI111))((V225));
  1416.     bds_unwind1;
  1417.     V224= cdr((V224));
  1418.     V225= car((V224));
  1419.     goto T716;}
  1420. T712:;
  1421.     princ_str("\n    vs_top=(vs_base=base+",VV[29]);
  1422.     (void)((*(LnkLI113))((V223)));
  1423.     princ_str(")+",VV[29]);
  1424.     V227= number_minus((VV[19]->s.s_dbind),(V223));
  1425.     (void)((*(LnkLI113))(/* INLINE-ARGS */V227));
  1426.     princ_char(59,VV[29]);
  1427.     setq(VV[37],Ct);
  1428.     {object V228 = Ct;
  1429.     bds_unwind1;
  1430.     VMR17(V228)}}
  1431. T709:;
  1432.     {object V229 = Cnil;
  1433.     VMR17(V229)}
  1434. }
  1435. /*    local entry for function PUSH-ARGS-LISPCALL    */
  1436.  
  1437. static object LI18(V231)
  1438.  
  1439. object V231;
  1440. {     VMB18 VMS18 VMV18
  1441.     bds_check;
  1442. TTL:;
  1443.     {register object V232;
  1444.     register object V233;
  1445.     V232= (V231);
  1446.     V233= car((V232));
  1447. T738:;
  1448.     if(!(endp((V232)))){
  1449.     goto T739;}
  1450.     {object V234 = Cnil;
  1451.     VMR18(V234)}
  1452. T739:;
  1453.     base[1]= list(2,VV[27],(*(LnkLI110))());
  1454.     bds_bind(VV[21],base[1]);
  1455.     V235= (*(LnkLI111))((V233));
  1456.     bds_unwind1;
  1457.     V232= cdr((V232));
  1458.     V233= car((V232));
  1459.     goto T738;}
  1460. }
  1461. /*    local entry for function C2CALL-UNKNOWN-GLOBAL    */
  1462.  
  1463. static object LI19(V240,V241,V242,V243)
  1464.  
  1465. register object V240;register object V241;register object V242;register object V243;
  1466. {     VMB19 VMS19 VMV19
  1467. TTL:;
  1468.     if((symbol_value(VV[28]))==Cnil){
  1469.     goto T751;}
  1470.     if(((V242))!=Cnil){
  1471.     goto T753;}
  1472.     V242= list(2,VV[27],(*(LnkLI110))());
  1473.     princ_str("\n    ",VV[29]);
  1474.     (void)((*(LnkLI113))((V242)));
  1475.     princ_str("=symbol_function(VV[",VV[29]);
  1476.     V244= (*(LnkLI136))((V240));
  1477.     (void)((*(LnkLI113))(/* INLINE-ARGS */V244));
  1478.     princ_str("]);",VV[29]);
  1479. T753:;
  1480.     (void)((*(LnkLI112))((V241)));
  1481.     princ_str("\n    funcall_with_catcher(VV[",VV[29]);
  1482.     V245= (*(LnkLI136))((V240));
  1483.     (void)((*(LnkLI113))(/* INLINE-ARGS */V245));
  1484.     princ_str("],",VV[29]);
  1485.     (void)((*(LnkLI113))((V242)));
  1486.     princ_str(");",VV[29]);
  1487.     {object V246 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V240)));
  1488.     VMR19(V246)}
  1489. T751:;
  1490.     if(((V242))==Cnil){
  1491.     goto T771;}
  1492.     (void)((*(LnkLI112))((V241)));
  1493.     if(((V243))==Cnil){
  1494.     goto T776;}
  1495.     if((symbol_value(VV[79]))==Cnil){
  1496.     goto T779;}
  1497.     princ_str("\n    funcall_no_event(",VV[29]);
  1498.     (void)((*(LnkLI113))((V242)));
  1499.     princ_str(");",VV[29]);
  1500.     goto T774;
  1501. T779:;
  1502.     princ_str("\n    CMPfuncall(",VV[29]);
  1503.     (void)((*(LnkLI113))((V242)));
  1504.     princ_str(");",VV[29]);
  1505.     goto T774;
  1506. T776:;
  1507.     princ_str("\n    funcall(",VV[29]);
  1508.     (void)((*(LnkLI113))((V242)));
  1509.     princ_str(");",VV[29]);
  1510. T774:;
  1511.     {object V247 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));
  1512.     VMR19(V247)}
  1513. T771:;
  1514.     if(((*(LnkLI146))((V241)))==Cnil){
  1515.     goto T791;}
  1516.     {object V248;
  1517.     V248= symbol_value(VV[19]);
  1518.     V242= list(2,VV[27],(*(LnkLI110))());
  1519.     if((symbol_value(VV[79]))==Cnil){
  1520.     goto T797;}
  1521.     princ_str("\n    ",VV[29]);
  1522.     (void)((*(LnkLI113))((V242)));
  1523.     princ_str("=symbol_function(VV[",VV[29]);
  1524.     V249= (*(LnkLI136))((V240));
  1525.     (void)((*(LnkLI113))(/* INLINE-ARGS */V249));
  1526.     princ_str("]);",VV[29]);
  1527.     goto T795;
  1528. T797:;
  1529.     princ_str("\n    ",VV[29]);
  1530.     (void)((*(LnkLI113))((V242)));
  1531.     princ_str("=(VV[",VV[29]);
  1532.     V250= (*(LnkLI136))((V240));
  1533.     (void)((*(LnkLI113))(/* INLINE-ARGS */V250));
  1534.     princ_str("]->s.s_gfdef);",VV[29]);
  1535. T795:;
  1536.     (void)((*(LnkLI116))((V241)));
  1537.     if((symbol_value(VV[21]))==(VV[90])){
  1538.     goto T810;}
  1539.     if(!((symbol_value(VV[21]))==(VV[59]))){
  1540.     goto T811;}
  1541. T810:;
  1542.     princ_str("\n    lispcall",VV[29]);
  1543.     if(((V243))==Cnil){
  1544.     goto T817;}
  1545.     princ_str("_no_event",VV[29]);
  1546. T817:;
  1547.     princ_str("(base+",VV[29]);
  1548.     (void)((*(LnkLI113))((V248)));
  1549.     princ_char(44,VV[29]);
  1550.     V251 = make_fixnum(length((V241)));
  1551.     (void)((*(LnkLI113))(V251));
  1552.     princ_str(");",VV[29]);
  1553.     setq(VV[37],Ct);
  1554.     {object V252 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31]));
  1555.     VMR19(V252)}
  1556. T811:;
  1557.     if(((V243))==Cnil){
  1558.     goto T831;}
  1559.     V253= VV[92];
  1560.     goto T829;
  1561. T831:;
  1562.     V253= VV[93];
  1563. T829:;
  1564.     V254 = make_fixnum(length((V241)));
  1565.     V255= list(4,VV[91],V253,(V248),V254);
  1566.     {object V256 = (VFUN_NARGS=1,(*(LnkLI114))(/* INLINE-ARGS */V255));
  1567.     VMR19(V256)}}
  1568. T791:;
  1569.     {object V257;
  1570.     V257= symbol_value(VV[19]);
  1571.     (void)((*(LnkLI116))((V241)));
  1572.     if((symbol_value(VV[21]))==(VV[90])){
  1573.     goto T834;}
  1574.     if(!((symbol_value(VV[21]))==(VV[59]))){
  1575.     goto T835;}
  1576. T834:;
  1577.     princ_str("\n    symlispcall",VV[29]);
  1578.     if(((V243))==Cnil){
  1579.     goto T841;}
  1580.     princ_str("_no_event",VV[29]);
  1581. T841:;
  1582.     princ_str("(VV[",VV[29]);
  1583.     V258= (*(LnkLI136))((V240));
  1584.     (void)((*(LnkLI113))(/* INLINE-ARGS */V258));
  1585.     princ_str("],base+",VV[29]);
  1586.     (void)((*(LnkLI113))((V257)));
  1587.     princ_char(44,VV[29]);
  1588.     V259 = make_fixnum(length((V241)));
  1589.     (void)((*(LnkLI113))(V259));
  1590.     princ_str(");",VV[29]);
  1591.     setq(VV[37],Ct);
  1592.     {object V260 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V240)));
  1593.     VMR19(V260)}
  1594. T835:;
  1595.     if(((V243))==Cnil){
  1596.     goto T857;}
  1597.     V261= VV[94];
  1598.     goto T855;
  1599. T857:;
  1600.     V261= VV[95];
  1601. T855:;
  1602.     V262 = make_fixnum(length((V241)));
  1603.     V263= list(5,VV[91],V261,(V257),V262,(*(LnkLI136))((V240)));
  1604.     {object V264 = (VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V263,Cnil,(V240)));
  1605.     VMR19(V264)}}
  1606. }
  1607. /*    local function CLOSURE    */
  1608.  
  1609. static LC20(base0)
  1610. register object *base0;
  1611. {    register object *base=vs_base;
  1612.     register object *sup=base+VM20; VC20
  1613.     vs_reserve(VM20);
  1614.     {object V265;
  1615.     vs_top[0]=Cnil;
  1616.     {object *p=vs_top;
  1617.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1618.     V265=(base[0]);
  1619.     vs_top=sup;
  1620.     princ_str("(VFUN_NARGS=",VV[29]);
  1621.     V266 = make_fixnum(length((V265)));
  1622.     (void)((*(LnkLI113))(V266));
  1623.     princ_char(44,VV[29]);
  1624.     base[1]= (base0[0]->c.c_car);
  1625.     base[2]= (V265);
  1626.     vs_top=(vs_base=base+1)+2;
  1627.     (void) (*Lnk147)();
  1628.     vs_top=sup;
  1629.     princ_char(41,VV[29]);
  1630.     base[1]= Cnil;
  1631.     vs_top=(vs_base=base+1)+1;
  1632.     return;
  1633.     }
  1634. }
  1635. static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* WT-INLINE-LOC */
  1636. static object  LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],&LnkLI146,1,ap);} /* ARGS-CAUSE-SIDE-EFFECT */
  1637. static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* WT-LOC */
  1638. static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[143],&LnkLI143,ap);} /* REMOVE */
  1639. static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[142],&LnkLI142,ap);} /* FIND */
  1640. static int  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[141],&LnkLI141,258,ap);} /* PROCLAIMED-ARGD */
  1641. static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,1,ap);} /* ADD-OBJECT */
  1642. static object  LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[139],&LnkLI139,1,ap);} /* REP-TYPE */
  1643. static LnkT138(){ call_or_link(VV[138],&Lnk138);} /* GET-OUTPUT-STREAM-STRING */
  1644. static LnkT137(){ call_or_link(VV[137],&Lnk137);} /* MAKE-STRING-OUTPUT-STREAM */
  1645. static object  LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],&LnkLI136,1,ap);} /* ADD-SYMBOL */
  1646. static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],&LnkLI135,4,ap);} /* C2CALL-UNKNOWN-GLOBAL */
  1647. static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],&LnkLI134,3,ap);} /* ADD-FAST-LINK */
  1648. static object  LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[133],&LnkLI133,2,ap);} /* INLINE-PROC */
  1649. static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],&LnkLI132,2,ap);} /* CHECK-FNAME-ARGS */
  1650. static object  LnkTLI131(){return call_proc0(VV[131],&LnkLI131);} /* CLOSE-INLINE-BLOCKS */
  1651. static object  LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],&LnkLI130,2,ap);} /* GET-INLINE-LOC */
  1652. static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* SAVE-AVMA */
  1653. static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,3,ap);} /* GET-INLINE-INFO */
  1654. static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],&LnkLI127,ap);} /* CMPNOTE */
  1655. static object  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],&LnkLI126,1,ap);} /* UNWIND-NO-EXIT */
  1656. static object  LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],&LnkLI125,2,ap);} /* C2PSETQ */
  1657. static object  LnkTLI124(){return call_proc0(VV[124],&LnkLI124);} /* TAIL-RECURSION-POSSIBLE */
  1658. static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],&LnkLI123,1,ap);} /* INLINE-POSSIBLE */
  1659. static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* INC-INLINE-BLOCKS */
  1660. static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],&LnkLI121,ap);} /* CMPWARN */
  1661. static object  LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[120],&LnkLI120,3,ap);} /* C2LET */
  1662. static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],&LnkLI119,ap);} /* CMPERR */
  1663. static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[118],&LnkLI118,ap);} /* C2LAMBDA-EXPR */
  1664. static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,1,ap);} /* NEED-TO-SET-VS-POINTERS */
  1665. static object  LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,1,ap);} /* PUSH-ARGS-LISPCALL */
  1666. static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[115],&LnkLI115,ap);} /* CS-PUSH */
  1667. static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[114],&LnkLI114,ap);} /* UNWIND-EXIT */
  1668. static object  LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],&LnkLI113,1,ap);} /* WT1 */
  1669. static object  LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[112],&LnkLI112,1,ap);} /* PUSH-ARGS */
  1670. static object  LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[111],&LnkLI111,1,ap);} /* C2EXPR* */
  1671. static object  LnkTLI110(){return call_proc0(VV[110],&LnkLI110);} /* VS-PUSH */
  1672. static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,2,ap);} /* ARGS-INFO-CHANGED-VARS */
  1673. static object  LnkTLI108(){return call_proc0(VV[108],&LnkLI108);} /* BABOON */
  1674. static object  LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],&LnkLI107,3,ap);} /* C2FUNCALL-SFUN */
  1675. static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* C2CALL-LAMBDA */
  1676. static object  LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,2,ap);} /* C2CALL-LOCAL */
  1677. static object  LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],&LnkLI104,4,ap);} /* C2CALL-GLOBAL */
  1678. static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[103],&LnkLI103,ap);} /* C2FUNCALL */
  1679. static object  LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[102],&LnkLI102,2,ap);} /* ADD-INFO */
  1680. static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,1,ap);} /* C1EXPR */
  1681. static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[100],&LnkLI100,ap);} /* MAKE-INFO */
  1682. static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],&LnkLI99,ap);} /* C1LAMBDA-EXPR */
  1683. static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,1,ap);} /* CMP-MACROEXPAND */
  1684. static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,1,ap);} /* CMP-MACRO-FUNCTION */
  1685. static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,1,ap);} /* C1LOCAL-FUN */
  1686.